inherited FClassificacaoProdutos: TFClassificacaoProdutos
  Left = 266
  Top = 172
  Height = 460
  Caption = 'Classifica'#231#227'o Produtos'
  Constraints.MinHeight = 460
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    Height = 433
    ActivePage = TsCadastro
    TabIndex = 1
    inherited TsPesquisa: TTabSheet
      inherited pnPesquisa: TPanel
        Top = 345
      end
      inherited dbgPesquisaPadra: TDBGrid
        Height = 288
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        Height = 402
        inherited panel2: TPanel
          inherited DBNavigator1: TDBNavigator
            DataSource = DSNivel1
            Hints.Strings = ()
          end
        end
        inherited panel3: TPanel
          Top = 342
          inherited BtnConsuta: TBitBtn
            OnClick = BtnConsutaClick
          end
        end
        object PNivel1: TPanel
          Tag = 5
          Left = 1
          Top = 36
          Width = 842
          Height = 57
          Align = alTop
          TabOrder = 2
          OnClick = PNivel1Click
          OnEnter = PNivel1Click
          object Label1: TLabel
            Left = 5
            Top = 1
            Width = 44
            Height = 16
            Caption = 'Codigo'
            Color = clBtnFace
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
            OnClick = PNivel1Click
          end
          object Label2: TLabel
            Left = 59
            Top = 1
            Width = 58
            Height = 16
            Caption = 'Descri'#231#227'o'
            FocusControl = DBEDescricao1
            OnClick = PNivel1Click
          end
          object Label3: TLabel
            Left = 437
            Top = 1
            Width = 52
            Height = 16
            Caption = 'Natureza'
            OnClick = PNivel1Click
          end
          object DBText1: TDBText
            Left = 5
            Top = 23
            Width = 54
            Height = 21
            DataField = 'CLASS_PROD_CODIGO'
            DataSource = DSNivel1
            OnClick = PNivel1Click
          end
          object DBEDescricao1: TDBEdit
            Left = 59
            Top = 21
            Width = 366
            Height = 22
            CharCase = ecUpperCase
            Ctl3D = False
            DataField = 'CLASS_PROD_DESCRICAO'
            DataSource = DSNivel1
            ParentCtl3D = False
            TabOrder = 0
            OnClick = PNivel1Click
          end
          object DBComboBox1: TDBComboBox
            Left = 436
            Top = 21
            Width = 149
            Height = 24
            Ctl3D = False
            DataField = 'CLASS_PROD_NATUREZA'
            DataSource = DSNivel1
            ItemHeight = 16
            Items.Strings = (
              'Consumo'
              'Venda')
            ParentCtl3D = False
            TabOrder = 1
            OnClick = PNivel1Click
          end
        end
        object PNivel2: TPanel
          Tag = 5
          Left = 1
          Top = 93
          Width = 842
          Height = 63
          Align = alClient
          TabOrder = 3
          OnClick = PNivel2Click
          OnEnter = PNivel2Click
          object Label4: TLabel
            Left = 5
            Top = 1
            Width = 40
            Height = 16
            Caption = 'Codigo'
            OnClick = PNivel2Click
          end
          object Label5: TLabel
            Left = 59
            Top = 1
            Width = 58
            Height = 16
            Caption = 'Descri'#231#227'o'
            FocusControl = DBEDescricao2
            OnClick = PNivel2Click
          end
          object DBText2: TDBText
            Tag = 5
            Left = 5
            Top = 23
            Width = 54
            Height = 21
            DataField = 'CLASS_PROD_CODIGO'
            DataSource = DSNivel2
            OnClick = PNivel2Click
          end
          object DBEDescricao2: TDBEdit
            Left = 59
            Top = 21
            Width = 523
            Height = 22
            CharCase = ecUpperCase
            Ctl3D = False
            DataField = 'CLASS_PROD_DESCRICAO'
            DataSource = DSNivel2
            ParentCtl3D = False
            TabOrder = 0
            OnClick = PNivel2Click
          end
        end
        object PNivel3: TPanel
          Tag = 5
          Left = 1
          Top = 156
          Width = 842
          Height = 186
          Align = alBottom
          TabOrder = 4
          OnClick = PNivel3Click
          OnEnter = PNivel3Click
          object Label7: TLabel
            Left = 283
            Top = 0
            Width = 141
            Height = 16
            Caption = 'Classifica'#231#227'o Financeira'
          end
          object Label6: TLabel
            Left = 2
            Top = 0
            Width = 58
            Height = 16
            Caption = 'Descri'#231#227'o'
          end
          object DBGrid1: TDBGrid
            Tag = 5
            Left = 1
            Top = 80
            Width = 840
            Height = 105
            Align = alBottom
            Color = clWhite
            Ctl3D = False
            DataSource = DSNivel3
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
            ParentCtl3D = False
            ParentFont = False
            ReadOnly = True
            TabOrder = 5
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            OnCellClick = DBGrid1CellClick
            OnColEnter = DBGrid1ColEnter
            OnEnter = PNivel3Click
            OnKeyDown = DBGrid1KeyDown
            OnKeyUp = DBGrid1KeyUp
            Columns = <
              item
                Expanded = False
                FieldName = 'CLASS_PROD_CODIGO'
                Title.Caption = 'Codigo'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'CLASS_PROD_DESCRICAO'
                Title.Caption = 'Descricao'
                Width = 288
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'PLANO'
                Title.Caption = 'Classifica'#231#227'o Financeira'
                Width = 152
                Visible = True
              end>
          end
          object BtnIncluirClassificacao: TBitBtn
            Tag = 1
            Left = 5
            Top = 49
            Width = 69
            Height = 25
            Caption = 'I&ncluir'
            TabOrder = 2
            OnClick = BtnIncluirClassificacaoClick
          end
          object BtnAlteraClassificacao: TBitBtn
            Tag = 1
            Left = 79
            Top = 49
            Width = 69
            Height = 25
            Caption = 'Alterar'
            TabOrder = 3
            OnClick = BtnAlteraClassificacaoClick
          end
          object BtnDeletarClassificacao: TBitBtn
            Tag = 1
            Left = 153
            Top = 49
            Width = 69
            Height = 25
            Caption = 'Excluir'
            TabOrder = 4
            OnClick = BtnDeletarClassificacaoClick
          end
          object DBLCBPlano: TDBLookupComboBox
            Left = 283
            Top = 20
            Width = 294
            Height = 22
            Ctl3D = False
            KeyField = 'CODIGO'
            ListField = 'DESCRICAO'
            ListSource = DSPlanoContas
            ParentCtl3D = False
            TabOrder = 1
            OnClick = PNivel3Click
            OnEnter = EDescricaoEnter
            OnKeyDown = DBLCBPlanoKeyDown
          end
          object EDescricao: TEdit
            Left = 2
            Top = 20
            Width = 276
            Height = 22
            CharCase = ecUpperCase
            Ctl3D = False
            ParentCtl3D = False
            TabOrder = 0
            OnClick = PNivel3Click
            OnEnter = EDescricaoEnter
          end
        end
      end
    end
  end
  object QClassifProdutoNivel1: TQuery
    BeforePost = QClassifProdutoNivel1BeforePost
    AfterPost = QClassifProdutoNivel1AfterPost
    AfterCancel = QClassifProdutoNivel1AfterCancel
    AfterDelete = QClassifProdutoNivel1AfterDelete
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'select *  from ClassificacaoProduto'
      
        'Where  (Class_Prod_Nivel1 is null) and (Class_Prod_Nivel2 is nul' +
        'l)'
      'Order by Class_Prod_Codigo')
    Left = 192
    Top = 40
  end
  object QClassifProdutoNivel2: TQuery
    BeforePost = QClassifProdutoNivel1BeforePost
    AfterPost = QClassifProdutoNivel1AfterPost
    AfterCancel = QClassifProdutoNivel1AfterCancel
    AfterDelete = QClassifProdutoNivel1AfterDelete
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'select * from ClassificacaoProduto'
      
        'Where  Not( (Class_Prod_Nivel1 is null) ) and (Class_Prod_Nivel2' +
        ' is null)'
      ';')
    Left = 320
    Top = 88
  end
  object QClassifProdutoNivel3: TQuery
    BeforePost = QClassifProdutoNivel1BeforePost
    AfterPost = QClassifProdutoNivel1AfterPost
    AfterCancel = QClassifProdutoNivel1AfterCancel
    AfterDelete = QClassifProdutoNivel1AfterDelete
    DatabaseName = 'base'
    SQL.Strings = (
      
        'select ClassificacaoProduto.*,PlanoContas.Descricao as Plano fro' +
        'm '
      ''
      
        'ClassificacaoProduto inner join  PlanoContas on ClassificacaoPro' +
        'duto.Class_Prod_PlanoContas =  PlanoContas.Codigo'
      ''
      
        'Where  (Class_Prod_Nivel1 is null) and Not((Class_Prod_Nivel2 is' +
        ' null) )')
    Left = 200
    Top = 208
  end
  object DSNivel1: TDataSource
    DataSet = QClassifProdutoNivel1
    Left = 224
    Top = 40
  end
  object DSNivel2: TDataSource
    DataSet = QClassifProdutoNivel2
    Left = 352
    Top = 88
  end
  object DSNivel3: TDataSource
    DataSet = QClassifProdutoNivel3
    Left = 232
    Top = 208
  end
  object DSPlanoContas: TDataSource
    DataSet = DMFinanceiro.QPlano
    Left = 656
    Top = 136
  end
  object QAux: TQuery
    BeforePost = QClassifProdutoNivel1BeforePost
    AfterPost = QClassifProdutoNivel1AfterPost
    AfterCancel = QClassifProdutoNivel1AfterCancel
    AfterDelete = QClassifProdutoNivel1AfterDelete
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'select * from ClassificacaoProduto'
      
        'Where  (Class_Prod_Nivel1 is null) and Not((Class_Prod_Nivel2 is' +
        ' null) )'
      ';')
    Left = 272
    Top = 208
  end
end
